10 POKE49152,0:POKE53280,0:POKE53281,0:GOSUB400
20 DIMT(12):FORX=0TO11:READD:T(X)=D:NEXT:VA=49152:VE=PEEK(VA)
30 DATA219,91,219,91,219,91,91,219,91,219,91,219
40 CR=91:RC=219:SP=32:PO=1430:TS=1630
50 PRINT"[147][150]       TASTEN 1 BIS 6 ZUM AENDERN       ";
60 PRINT"           RETURN [146] = AUSFUEHREN"
70 FORX=0TO4STEP2:POKEPO+X,CR:NEXT:FORX=6TO10STEP2:POKEPO+X,RC:NEXT
80 GETA$:IFA$=""THEN80
90 IFA$=CHR$(13)THEN170
100 A=VAL(A$):IFA<1ORA>6THEN80
110 A=(A-1)*2:GOSUB130
120 GOTO80
130 N=PEEK(PO+A):IFN=RCTHENN=CR:POKEPO+A,N:GOTO150
140 POKEPO+A,RC
150 RETURN
160 END
170 PRINT"HERE WE GO!":L=0:L1=0
180 C=PO+L:C=C-40:C1=PEEK(PO+L):POKEPO+L,32
190 FORX=0TO11-L1:POKEC+X ,C1:POKEC-1+X,32:FORY=0TO40:NEXTY,X:FORY=0TO75:NEXT
200 POKEC-1+X,32:C=C+40:POKEC+X,C1:
210 C=PO+2:C=C+40:C1=PEEK(PO+L+2):POKEPO+L+2,32
220 FORX=LTO-2+L1STEP-1:POKEC+X,C1:POKEC+1+X,32:FORY=0TO30:NEXTY,X:
230 FORY=0TO75:NEXT
240 FORN=1TO4:POKEC+1+X,32:C=C+40:POKEC+1+X,C1:FORY=1TO75:NEXTY,N
250 L1=L1+2:L=L+4:IFL<>24THEN180
260 FORX=12TO0STEP-2
270 IFPEEK(TS)<>T(0)THENX=7:Y=2:GOTO290
280 X=1:Y=2
290 IFPEEK(TS+Y)=T(X)THEN310
300 GOTO 340
310 X=X+1:Y=Y+2
320 IFY<>12THEN 290
330 PRINT"[158]JAAA!!! - GANZ TOLL!":GOSUB490:GOTO380
340 PRINT"[151]OOPS,  NICHT RICHTIG...!"
350 PRINT"NEUER VERSUCH   <J/N> ?":VE=VE+1
360 GETA$:IFA$=""THEN360
370 IFA$="J"THENPRINT"":POKEVA,VE:RESTORE:RUN20
380 PRINT"[147][154]":POKE53281,6:POKE53280,14:PRINT"DU HATTEST"VE"VERSUCHE..."
390 END
400 PRINT"[147][150]              THE SHUFFLE"
410 PRINT"[154]         [213][192][201] [178] [178] [192][192][201] [192][192][201] [178]  [176][192][192]"
420 PRINT"[155]         [221] [221] [221] [221]  [213][203]  [213][203] [221]  [221] "
430 PRINT"[151]         [171][192][203] [221] [221] [213][203]  [213][203]  [221]  [171][192]"
440 PRINT"[152]         [221]   [221] [221] [221]   [221]   [221]  [221] "
450 PRINT"         [177]   [202][192][203][160][202][192][203] [202][192][203][160][173][192][192][173][192][192]"
460 PRINT"            ANLEITUNG MIT F1 "
465 PRINT" [155]           START  MIT TASTE "
470 GETA$:IFA$=""THEN470
475 IFA$=CHR$(133)THENGOSUB500
480 RETURN
490 FORX=0TO96:POKE53280,X:POKE53281,X:NEXT:RETURN
500 PRINT"[147]ANLEITUNG:":PRINT"DER SINN DES SPIELES IST, DIE ZEICHEN"
510 PRINT" ' [219] ' UND ' [219][146] ' ":PRINT"IN EINE ABWECHSELNDE REIHENFOLGE"
520 PRINT"ZU BRINGEN.":PRINT"EINEM '[219][146]' MUSS ALSO EIN '[219]', DIESEM"
530 PRINT"WIEDER EIN '[219][146]' - USW. FOLGEN.":PRINT"DAS SETZEN DER ZEICHEN WIRD VOM ";
540 PRINT"PRO-    GRAMM AUSGEFUEHRT - DEINE AUFGABE IST   ES, DIE VORGEGEBENE ";
545 PRINT"REIHENFOLGE DER":PRINT"ZEICHEN SO ZU AENDERN, DASS DIESE DURCH"
550 PRINT"DAS VERSETZUNGS-SCHEMA IN DIE GENANNTE  FOLGE GEBRACHT WERDEN."
560 PRINT" ZUM AENDERN BENUTZE DIE TASTEN 1 - 6,":PRINT" WENN DU FERTIG BIST, ";
570 PRINT"DRUECKE RETURN !":PRINT"[155]   VIEL GLUECK ! - T I G E R C R E W"
580 POKE198,0:WAIT198,1:POKE198,0:RETURN